  NR==1  { # first action (gaurded by "NR==1")
          Width = Width ? Width : 40  #  Width defaults to 40
          Scale = $1 > Width ? $1 / Width : 1 # Scale data, based on Width
        }
        { # second pattern (note the empty gaurd on the left-hand-side)
          Stars = int($1*Scale);  # scale each line
          print str(Width - Stars," ") str(Stars,"*") $0 # print each line 
        }
 # Support function: returns a string, size "n" lots of "c" 
 function str(n,c,   tmp) { 
    while((n--) > 0 ) 
      tmp= c tmp  # example of string concatenation
    return tmp 
 }
